﻿Imports BUS

Public Class frmThongTinTheDocGia

    Private Sub frmThongTinTheDocGia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As DataTable = DocGia_BUS.getInfoCardLibrary(frmDangNhap.user)

        With dt
            For Each r As DataRow In .Rows
                lblMaThe.Text = r(0).ToString
                lblHoten.Text = r(1).ToString
                Dim d As DateTime = r(2)
                lblNgayDK.Text = d.Day.ToString + "-" + d.Month.ToString + "-" + d.Year.ToString
                lblTenTK.Text = r(3).ToString
                d = r(4)
                lblNgayHetHan.Text = d.Day.ToString + "-" + d.Month.ToString + "-" + d.Year.ToString
                pbAvartar.BackgroundImage = Image.FromFile(r(5).ToString)
                lblLoaiThe.Text = r(6).ToString
            Next
        End With

    End Sub
End Class